* lisp/progmodes/f90.el (f90-looking-at-critical): Doc fix.

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index db292c2452ba80113786b81a0d94107a9dc016d9..cdb5f2a715d765d9a721615171c77e4009891fc6 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -1262,7 +1262,7 @@ NAME is nil if the statement has no label."
       (list (match-string 1))))
 
 (defsubst f90-looking-at-critical ()
-  "Return (KIND) if a critical or block block starts after point."
+  "Return (KIND NAME) if a critical or block block starts after point."
   (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(critical\\|block\\)\\>")
       (let ((struct (match-string 3))
             (label (match-string 2)))